home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / simila1a / netbusde.frm next >
Text File  |  1999-09-25  |  2KB  |  78 lines
  1. VERSION 5.00
  2. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "DXB700's Netbus detector"
  5.    ClientHeight    =   675
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   3390
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   675
  11.    ScaleWidth      =   3390
  12.    StartUpPosition =   1  'CenterOwner
  13.    Begin MSWinsockLib.Winsock Winsock1 
  14.       Left            =   3720
  15.       Top             =   1320
  16.       _ExtentX        =   741
  17.       _ExtentY        =   741
  18.       _Version        =   393216
  19.    End
  20.    Begin VB.Label Label1 
  21.       Caption         =   "Label1"
  22.       Height          =   255
  23.       Left            =   120
  24.       TabIndex        =   0
  25.       Top             =   240
  26.       Width           =   3015
  27.    End
  28. End
  29. Attribute VB_Name = "Form1"
  30. Attribute VB_GlobalNameSpace = False
  31. Attribute VB_Creatable = False
  32. Attribute VB_PredeclaredId = True
  33. Attribute VB_Exposed = False
  34.  
  35.  
  36. 'This code is written by DXB700
  37. 'For more information Please Contact Me on ICQ # : 7293201 Or Email : strange_life@hotmail.com
  38. 'at least put my name on the credits section if you used this code .
  39. 'If you found any error , Contact me pls
  40.  
  41. Private Sub Form_Load()
  42. Label1.Caption = "Checking for netbus server . Please wait"
  43.  
  44.  
  45. Winsock1.Connect Winsock1.LocalIP, 12345 'Connects to your computer using port 12345
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61. End Sub
  62.  
  63. Private Sub Winsock1_Connect()
  64. MsgBox "Error : either netbus server is installed on your computer or netbuster is activated or any similar program to netbuster", vbCritical 'If we could connect to your computer using port 12345 , then that means a program is listening to port 12345 Or netbus server is installed on your comp
  65.  
  66. Unload Me 'Close program
  67.  
  68.  
  69. End Sub
  70.  
  71. Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  72. MsgBox "No netbus server found on your comp!", vbInformation
  73.  
  74. Unload Me 'If we couldn't connect to your computer using port 12345 then that means no netbus server is installed on your comp and we can listen to port 12345
  75. Form2.Show 'Show form2 and listen for any attack(s)
  76.  
  77. End Sub
  78.